home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mintbind.d < prev    next >
Text File  |  1997-10-26  |  7KB  |  198 lines
  1. DEFINITION MODULE Mintbind;
  2.  
  3. (*==============================================================*
  4.  *                                                              *
  5.  * Mint-Binding fr Megamax Modula-2, unter Benutzung der       *
  6.  * MagicLib von Peter Hellinger.                                *
  7.  *                                                              *
  8.  * (c) 1992 Dirk Steins                                         *
  9.  *                                                              *
  10.  * Dieses Modul ist Freeware!                                   *
  11.  *                                                              *
  12.  *==============================================================*
  13.  * Autor:               Dirk Steins                             *
  14.  * erstellt am:         13.8.1992                               *
  15.  * letzte Žnderung am:  13.8.1992                               *
  16.  * Version:             1.0                                     *
  17.  *==============================================================*
  18.  * Datum    Vers. Autor     Žnderung (Arbeitsbericht)           *
  19.  *==============================================================*
  20.  *
  21.  * 13.8.92  1.0   DS        Modul erstellt
  22.  * 20.1.93  1.1   DS        Signals hinzugefgt
  23.  *
  24.  *==============================================================*)
  25.  
  26. FROM SYSTEM     IMPORT ADDRESS;
  27. FROM MagicSys   IMPORT sINTEGER, lINTEGER, sBITSET, lBITSET, 
  28.                        sCARDINAL, lCARDINAL;
  29.  
  30. FROM FileSys    IMPORT XATTR;
  31.  
  32. CONST
  33.     NSIG        = 31;      (* number of signals recognized *)
  34.  
  35.     SIGNULL     = 0 ;      (* not really a signal *)
  36.     SIGHUP      = 1 ;      (* hangup signal *)
  37.     SIGINT      = 2 ;      (* sent by ^C *)
  38.     SIGQUIT     = 3 ;      (* quit signal *)
  39.     SIGILL      = 4 ;      (* illegal instruction *)
  40.     SIGTRAP     = 5 ;      (* trace trap *)
  41.     SIGABRT     = 6 ;      (* abort signal *)
  42.     SIGPRIV     = 7 ;      (* privilege violation *)
  43.     SIGFPE      = 8 ;      (* divide by zero *)
  44.     SIGKILL     = 9 ;      (* cannot be ignored *)
  45.     SIGBUS      = 10;      (* bus error *)
  46.     SIGSEGV     = 11;      (* illegal memory reference *)
  47.     SIGSYS      = 12;      (* bad argument to a system call *)
  48.     SIGPIPE     = 13;      (* broken pipe *)
  49.     SIGALRM     = 14;      (* alarm clock *)
  50.     SIGTERM     = 15;      (* software termination signal *)
  51.  
  52.     SIGURG      = 16;      (* urgent condition on I/O channel *)
  53.     SIGSTOP     = 17;      (* stop signal not from terminal *)
  54.     SIGTSTP     = 18;      (* stop signal from terminal *)
  55.     SIGCONT     = 19;      (* continue stopped process *)
  56.     SIGCHLD     = 20;      (* child stopped or exited *)
  57.     SIGTTIN     = 21;      (* read by background process *)
  58.     SIGTTOU     = 22;      (* write by background process *)
  59.     SIGIO       = 23;      (* I/O possible on a descriptor *)
  60.     SIGXCPU     = 24;      (* CPU time exhausted *)
  61.     SIGXFSZ     = 25;      (* file size limited exceeded *)
  62.     SIGVTALRM   = 26;      (* virtual timer alarm *)
  63.     SIGPROF     = 27;      (* profiling timer expired *)
  64.     SIGWINCH    = 28;      (* window size changed *)
  65.     SIGUSR1     = 29;      (* user signal 1 *)
  66.     SIGUSR2     = 30;      (* user signal 2 *)
  67.  
  68.     SIG_DFL     = 0 ;
  69.     SIG_IGN     = 1 ;
  70.  
  71. PROCEDURE Syield() : sINTEGER;
  72.  
  73. PROCEDURE Fpipe (VAR usrh : ARRAY OF sINTEGER): sINTEGER;
  74.  
  75. PROCEDURE Fcntl (f : sINTEGER; arg : ADDRESS; cmd : INTEGER): lINTEGER;
  76.  
  77. PROCEDURE Finstat (f : sINTEGER): lINTEGER;
  78.  
  79. PROCEDURE Foutstat (f : sINTEGER) : lINTEGER;
  80.  
  81. PROCEDURE Fgetchar (f : sINTEGER; mode : sINTEGER) : lINTEGER;
  82.  
  83. PROCEDURE Fputchar (f : sINTEGER; char: lINTEGER; mode: sINTEGER): lINTEGER;
  84.  
  85. PROCEDURE Pwait (): lINTEGER;
  86.  
  87. PROCEDURE Pnice (delta : sINTEGER) : sINTEGER;
  88.  
  89. PROCEDURE Pgetpid () : sINTEGER;
  90.  
  91. PROCEDURE Pgetppid () : sINTEGER;
  92.  
  93. PROCEDURE Pgetpgrp () : sINTEGER;
  94.  
  95. PROCEDURE Psetpgrp (pid, grp : sINTEGER) : sINTEGER;
  96.  
  97. PROCEDURE Pgetuid () : sINTEGER;
  98.  
  99. PROCEDURE Psetuid (id : sINTEGER) : sINTEGER;
  100.  
  101. PROCEDURE Pkill (pid, sig : sINTEGER) : sINTEGER;
  102.  
  103. PROCEDURE Psignal (sig : sINTEGER; handler : ADDRESS) : ADDRESS;
  104.  
  105. PROCEDURE Pvfork () : sINTEGER;
  106.  
  107. PROCEDURE Pgetgid () : sINTEGER;
  108.  
  109. PROCEDURE Psetgid (id : sINTEGER) : sINTEGER;
  110.  
  111. PROCEDURE Psigblock (mask : lBITSET) : lBITSET;
  112.  
  113. PROCEDURE Psigsetmask (mask : lBITSET) : lBITSET;
  114.  
  115. PROCEDURE Pusrval (val : lINTEGER) : lINTEGER;
  116.  
  117. PROCEDURE Pdomain (domain : sINTEGER) : sINTEGER;
  118.  
  119. PROCEDURE Psigreturn ();
  120.  
  121. PROCEDURE Pfork () : sINTEGER;
  122.  
  123. PROCEDURE Pwait3 (flag : sINTEGER; VAR rusage : ARRAY OF lINTEGER): lINTEGER;
  124.  
  125. PROCEDURE Fselect (time : sINTEGER; VAR rfd, wfd : lBITSET; xfd : ADDRESS) : sINTEGER;
  126.  
  127. PROCEDURE Prusage (VAR r : ARRAY OF LONGINT);
  128.  
  129. PROCEDURE Psetlimit (limit : sINTEGER; val : lINTEGER) : lINTEGER;
  130.  
  131. PROCEDURE Talarm (time : lINTEGER) : lINTEGER;
  132.  
  133. PROCEDURE Pause ();
  134.  
  135. PROCEDURE Sysconf (n : sINTEGER): lINTEGER;
  136.  
  137. PROCEDURE Psigpending () : lBITSET;
  138.  
  139. PROCEDURE Dpathconf (REF name : ARRAY OF CHAR; mode : sINTEGER) : lINTEGER;
  140.  
  141. TYPE Msg = RECORD 
  142.              msg1, msg2 : lINTEGER;
  143.              pid        : sINTEGER;
  144.            END;
  145.  
  146. PROCEDURE Pmsg (mode : sINTEGER; mboxid : lINTEGER; VAR msg : Msg) : lINTEGER;
  147.  
  148. PROCEDURE Fmidipipe (pid, in, out : sINTEGER) : lINTEGER;
  149.  
  150. PROCEDURE Prenice (pid, delta : sINTEGER) : lINTEGER;
  151.  
  152. PROCEDURE Dopendir (REF name : ARRAY OF CHAR; flag : sINTEGER) : lINTEGER;
  153.  
  154. PROCEDURE Dreaddir (handle : lINTEGER; VAR name : ARRAY OF CHAR) : lINTEGER;
  155.  
  156. PROCEDURE Drewinddir (handle : lINTEGER) : lINTEGER;
  157.  
  158. PROCEDURE Dclosedir (handle : lINTEGER) : lINTEGER;
  159.  
  160. PROCEDURE Dxreaddir (handle : lINTEGER; VAR name : ARRAY OF CHAR; 
  161.                      VAR xattr : XATTR; VAR xr: lINTEGER) : lINTEGER;
  162.  
  163. PROCEDURE Fxattr (flag : sINTEGER; REF name : ARRAY OF CHAR; VAR xattr : XATTR) : lINTEGER;
  164.  
  165. PROCEDURE Flink (REF oldname, newname : ARRAY OF CHAR) : lINTEGER;
  166.  
  167. PROCEDURE Fsymlink (REF oldname, newname : ARRAY OF CHAR) : lINTEGER;
  168.  
  169. PROCEDURE Freadlink (REF name : ARRAY OF CHAR; VAR buf : ARRAY OF CHAR) : lINTEGER;
  170.  
  171. PROCEDURE Dcntl (cmd : sINTEGER; REF name : ARRAY OF CHAR; arg : lINTEGER) : lINTEGER;
  172.  
  173. PROCEDURE Fchown (REF name : ARRAY OF CHAR; uid, gid : sINTEGER) : lINTEGER;
  174.  
  175. PROCEDURE Fchmod (REF name : ARRAY OF CHAR; mode : sBITSET) : lINTEGER;
  176.  
  177. PROCEDURE Pumask (mode : sBITSET): sBITSET;
  178.  
  179. PROCEDURE Psemaphore (mode : sINTEGER; id : lCARDINAL; timeout : lINTEGER) : lINTEGER;
  180.  
  181. PROCEDURE Dlock (mode : sINTEGER; drv : sINTEGER) : lINTEGER;
  182.  
  183. PROCEDURE Psigpause (mask : lBITSET);
  184.  
  185. TYPE    SigAction   = RECORD
  186.                         sa_handler  : lINTEGER;
  187.                         sa_mask     : lBITSET;
  188.                         sa_flags    : sINTEGER;
  189.                       END;
  190.  
  191. PROCEDURE Psigaction (sig : sINTEGER; VAR act : SigAction; VAR oact : SigAction) : lINTEGER;
  192.  
  193. PROCEDURE Pgeteuid() : sINTEGER;
  194.  
  195. PROCEDURE Pgetegid() : sINTEGER;
  196.  
  197. END Mintbind.
  198.